data1 segment
str1 db 'ABCD'
str2 dw 'AB'
data1 ends

stack1 segment stack
	db 20H dup(0)
stack1 ends

codesg segment
assume ds:data1, ss:stack1, cs:codesg
begin:
mov ax, data1
mov ds, ax
mov ah, 4ch
int 21h
codesg ends
end begin
